home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / saveas.clssa < prev    next >
Text File  |  1995-01-20  |  804b  |  43 lines
  1. /***********************************************************************
  2.  GADGET: "'Sichern'" "1" AUTO TYP: "?"
  3.  
  4.  $DAT >>SaveAs.clssa<<        20.01.1995 - (C) ProDAD Michael Christoph
  5. ************************************************************************/
  6.  
  7. Options RESULTS
  8. Address clariSSA
  9.  
  10.   FailAt 11
  11.   AltFail=RESULT
  12.  
  13.  
  14.   GetPref
  15.   M_Pref=RESULT
  16.   SetPref "HBComp OFF  LaceCompensation ON"
  17.  
  18.  
  19.   DO FOREVER
  20.     SelectAnim MASTER
  21.  
  22.     GetAnimInfo Master
  23.     IF RESULT~="" THEN DO
  24.  
  25.       SetBasicScreen Front
  26.       FileSelect "TITLE '*** Sichern als... ***' PTEXT 'Sichern'"
  27.       Datei=RESULT
  28.       IF RC~=0 THEN LEAVE
  29.  
  30.       SaveAnim "Name" '"'Datei'"'
  31.  
  32.     END
  33.     ELSE DO
  34.       Message "'Keine Master-Animation vorhanden'"
  35.       LEAVE
  36.     END
  37.     LEAVE
  38.   END
  39.  
  40.   SetPref M_Pref
  41.   FailAt AltFail
  42. exit
  43.